 OID = LED(82)<1,1,1>
          WRITER = LED(73)
          NAME=TRANS('ENTITY',ST.CN,1,'X')<1,1,1>
          NEW.ORDER% = NEW.ORDER
          CRLIM = OCONV(TRANS('ENTITY',ST.CN,22,'X')<1,1,1>,'MR2')
          CLIM.WRN=''
          IF CLIMIT.PCT$+0 > 0 AND CLIM.WRN = '' THEN
                CDP  = OCONV(CLIMIT.PCT$,'MR2')
                PDP  = CDP/100
                CAMT = CRLIM*PDP
          USERID = 'TSMITH'
                   READ REC FROM INIFILE, USERID ELSE RETURN
                   OPEN 'USER.LOGINS' TO LOGINFILE THEN
                   READV IS.LOGGED FROM LOGINFILE,USERID,8 ELSE NULL
                   *IF NEW.ORDER% THEN
                   *IS.LOGGED THEN
                   MSG          = 'Account .':ST.CN:' ':NAME:' is Within ':CDP "R2#5":'% of Credit Limit (':OCONV(CRLIM,'MR2'):') due to ':OID:' written by ':WRITER:'.'
                   SEND.MESSAGE 'Phantom','TSMITH',MSG
                   END
                   *END
                   END